Public Class VisualizarRecepciones
    Dim RNVisualizarRecepciones As New RNCono.VisualizarRecepciones



    Private Sub VisualizarRecepciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DgvFiltro1.Inicializar(RNVisualizarRecepciones.ObtenerRecepcionesPendientes)
    End Sub


    Private Sub cmdSeleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSeleccionar.Click
        Dim IDRecepcion As Integer
        IDRecepcion = Integer.Parse(DgvFiltro1.FilaSeleccionada(0).Valor)
        GenerarRecepcion.IdRecepcion = IDRecepcion
        GenerarRecepcion.Show()
    End Sub

    Private Sub cmdCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCerrar.Click
        Me.Dispose()
    End Sub

    Private Sub cmdImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImprimir.Click
        Dim IDRecepcion As Integer
        IDRecepcion = Integer.Parse(DgvFiltro1.FilaSeleccionada(0).Valor)

    End Sub
End Class